home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / C for beginners.adf / source / strchar.c < prev    next >
Text File  |  1978-01-17  |  696b  |  22 lines
  1. /*  Filename: "strchar.c" */
  2. /**********************************************************************/
  3. /* Name:          strchar                                             */
  4. /* Parameter:     s (String), c (char)                                */
  5. /* Return value: Position (int), or -1                                */
  6. /* Function:      Determines Position of the Character "c" in "s"     */
  7. /* Other:         -                                                   */
  8. /**********************************************************************/
  9.  
  10. strchar(s,c)
  11. register char s[];
  12. register char c;
  13. {
  14.   register int i = 0;
  15.   while(!c_comp(s[i],c) && s[i])
  16.     i++;
  17.   if(s[i]) return(i);
  18.   return(-1);
  19. }
  20.  
  21.  
  22.